
open(BUFF,"snps_not_present_chop_chr_imp");
while($line = <BUFF>)
{
	chomp $line;
	system("grep $line beagleout_22.phased >> excludedsnps_chop_imp");
}
